home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / demo1.clssa < prev    next >
Text File  |  1995-04-11  |  827b  |  34 lines
  1. /***********************************************************************
  2.   $DAT >>Demo1.clssa<<        12.04.1995 - (C) ProDAD Michael Christoph
  3. ************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS clariSSA
  7.  
  8.   FailAt 99
  9.   AltFail=RESULT
  10.  
  11.  
  12.   If ~Exists("Demo1.SSA") THEN DO
  13.    Message "'Die Animation `Demo1.SSA`''befindet sich nicht im''aktuellen Verzeichnis''und kann deshalb nicht''vorgeführt werden.'"
  14.   END
  15.   ELSE DO
  16.     GetAnimInfo MASTER
  17.  
  18.     IF RESULT~="" THEN DO
  19.       Parse var RESULT datei .
  20.       IF datei="'Demo1.SSA'" THEN laden=nein
  21.     END
  22.     IF laden~=nein THEN DO
  23.       RequestStatus OFF
  24.       CloseAnim MASTER
  25.       LoadAnim MASTER NAME "Demo1.SSA"
  26.       RequestStatus ON
  27.     END
  28.  
  29.     PlayAnim 99999 SCREENS   /* endlos abspielen */
  30.   END
  31.  
  32.   FailAt AltFail
  33. exit
  34.